home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 59 / 059.d81 / x-ref boot (.txt) < prev   
Commodore BASIC  |  2022-08-26  |  2KB  |  45 lines
  1. 100 ifchthen480
  2. 110 poke53281,0::poke53280,0:print"[147][158]"
  3. 120 c(1)=15:c(2)=12:c(3)=11
  4. 130 c(7)=11:c(6)=12:c(5)=15:c(4)=12:goto300
  5. 140 poke646,6:print""spc(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  6. 150 printspc(5)"[221]                             [221]"
  7. 160 printspc(5)"[221]                             [221]"
  8. 170 printspc(5)"[221]                             [221]"
  9. 180 printspc(5)"[221]                             [221]"
  10. 190 printspc(5)"[221]                             [221]"
  11. 200 printspc(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":gosub260:return
  12. 210 poke646,c(i+2):print"[195] [210] [207] [211] [211] [160] [210] [197] [198] [197] [210] [197] [206] [195] [197]"
  13. 220 poke646,c(i+1):printspc(6)"[195] [210] [207] [211] [211] [160] [210] [197] [198] [197] [210] [197] [206] [195] [197]"
  14. 230 poke646,c(i):printspc(6)"[195] [210] [207] [211] [211] [160] [210] [197] [198] [197] [210] [197] [206] [195] [197]"
  15. 240 poke646,c(i+1):printspc(6)"[195] [210] [207] [211] [211] [160] [210] [197] [198] [197] [210] [197] [206] [195] [197]"
  16. 250 poke646,c(i+2):printspc(6)"[195] [210] [207] [211] [211] [160] [210] [197] [198] [197] [210] [197] [206] [195] [197]":return
  17. 260 printspc(19)"[158]by"
  18. 270 print""spc(16)"[210]ick [206]ash"
  19. 280 print"[154][211][208][193][195][197][160][212][207][160][204][207][193][196][160][195][210][207][211][211] [210][197][198][197][210][197][206][195][197]"
  20. 290 printspc(11)"[209][160][212][207][160][209][213][201][212][160][212][207][160][204][207][193][196][211][212][193][210]":return
  21. 300 gosub320:gosub140:goto440                                          
  22. 310 stop
  23. 320 poke214,15:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  24. 330 fori=1to3:print"                                      ":next
  25. 340 print"        [208]ublished on [204][207][193][196][211][212][193][210] #59     "
  26. 350 print"      [211]ubscriptions 1-800-831-2694    "
  27. 360 print"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
  28. 370 print"                                      "
  29. 380 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  30. 390 au$="[195][210][207][211][211][160][210][197][198][197][210][197][206][195][197]":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  31. 400 au$="[194]y [210]ick [206]ash  ([195]) 1989":poke214,18:print
  32. 410 printspc(20-len(au$)/2)"[152]"au$"":return
  33. 420 i=i+1:ifi=5theni=1
  34. 430 gosub210:return
  35. 440 geta$:gosub420:ifa$<>"q"anda$<>" "then440
  36. 450 i=1:gosub210
  37. 460 ifa$="q"then490
  38. 470 ch=1:load"x-ref",8,1
  39. 480 sys49152
  40. 490 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  41. 500 if er<>63 then print"[147]":end
  42. 510 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  43. 520 print"[158]load"q$a$q$",8"
  44. 530 print"run":poke631,13:poke632,13:poke198,2:end
  45.